home *** CD-ROM | disk | FTP | other *** search
/ PCMania 19 / PCMania19.iso / Jogos em Flash / ESTRATEGIA / BATTLE_SHIPS.SWF / scripts / frame_55 / DoAction.as
Text File  |  2003-11-17  |  461b  |  23 lines
  1. if(xxx < "0" or "19" < xxx or yyy < "0" or "19" < yyy)
  2. {
  3.    er = "1";
  4. }
  5. else
  6. {
  7.    er = "0";
  8.    xc = xxx - "1";
  9.    while(xc < xxx + "2")
  10.    {
  11.       yc = yyy - "1";
  12.       while(yc < yyy + "2")
  13.       {
  14.          if("10" < eval("p" add xc add "_" add yc) and eval("p" add xc add "_" add yc) < "20" and eval("p" add xc add "_" add yc) != sd + "10")
  15.          {
  16.             er = "1";
  17.          }
  18.          yc += "1";
  19.       }
  20.       xc += "1";
  21.    }
  22. }
  23.